0 PRINT"[147]"TAB(12)"CHARITABLE TASK"
1 REM ==================================
2 REM    COMMODARES PROBLEM #58-3 :
3 REM       CHARITABLE TASK
4 REM    SOLUTION BY
5 REM       KEITH KUSHNER
6 REM ==================================
10 ZZ=RND(-TI):D=3E3:FORT=0TO8:A(T)=INT(RND(1)*900+100):NEXT
20 FORU=1TO7:FORV=U+1TO8:FORT=0TO8:B(T)=A(T):NEXT
30 B(U)=A(1):B(V)=A(2+(U=2)):B(1)=A(U):B(2)=A(V):GOSUB80:GOSUB50:GOSUB40:NEXT:NEXT:END
40 FORX=3TO5:FORY=6TO8:GOSUB80:C(X)=B(Y):C(Y)=B(X):GOSUB50:NEXT:NEXT:RETURN
50 H=0:L=3E3:FORT=0TO2:S(T)=C(3*T)+C(3*T+1)+C(3*T+2)
60 H=H-(S(T)-H)*(S(T)>H):L=L+(L-S(T))*(S(T)<L):NEXT:ON-(H-L<D)GOSUB70:RETURN
70 D=H-L:FORT=0TO2:FORW=0TO2:PRINTC(W+3*T);:NEXT:PRINT"=";S(T):NEXT:PRINTD:RETURN
80 FORT=0TO8:C(T)=B(T):NEXTT:RETURN